home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 21
/
64er_Magazin_Sonderheft_21_19xx_Markt__Technik_de_Side_B.d64
/
listing 32
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
55 lines
10 rem ************************************************
20 rem * *
30 rem * programm zum umwandeln von zahlen in die *
40 rem * c 64-formate mflpt (ab $6000) *
50 rem * flpt (ab $6010) *
60 rem * *
70 rem * heimo ponnath hamburg 1986 *
80 rem * *
90 rem ************************************************
100 rem
110 printchr$(147)"ist der smon ab $c000 schon eingeladen (j/n)";:inputa$
120 if a$<>"j" then print"wuensche guten absturz...oder smon laden!":end
130 for i=0 to 17:rem einlesen des maschinenprogrammes
140 read d:poke 828+i,d
150 next i
160 rem -------- das maschinenprogramm ------------
170 data 162,000 :rem ldx #$00 ;lsb zieladresse
180 data 160,096 :rem ldy #$60 ;msb -"-
190 [131] 032,212,187:[143] jsr $bbd4 ;fac -> (x/y)
200 [131] 162,006 :[143] ldx #$06 ;zaehler einrichten
210 [131] 181,096 :[143] lda $60,x ;fac auslesen
220 [131] 157,015,096:[143] sta $600f,x ;und uebertragen
230 [131] 202 :[143] dex ;zaehler -1
240 [131] 208,248 :[143] bne $033d ;weiter bis fac uebertragen ist
250 [131] 096 :[143] rts ;zurueck ins basicprogramm
260 [143]
270 [143] -------- usr-vektor auf $828 richten -----
280 [143]
290 [151] 785,60 :[143] lsb des usr-vektors
300 [151] 786,3 :[143] msb desselben
310 [143]
320 [143] -------- eingaben und usr-aufruf ----------
330 [143]
340 [153] [199](147):[133]"zahl eingeben";a
350 b[178][183](a):[143] b ist nur ein dummy
360 [143]
370 [143] ----- progr.direktmodus : monitoraufruf -----
380 [153][199](147)[199](17)
390 [153]"sys49152"[199](17)[199](17)[199](17)[199](17)
400 [153]" m 6000 6001"[199](17):[143] hier liegt die zahl im mflpt-format
410 [153]" m 6010 6011"[199](17):[143] und hier im flpt-format
420 [153]" x"[199](17)
430 [153]"run490"
440 [153][199](19);
450 [151]631,13
460 [151]198,1:[128]
470 [143] ---------------------------------------------
480 [143]
490 [153]:[153]"ab $6000 mflpt-format"
500 [153]"ab $6010 flpt-format"
510 [153]:[133]"weitere zahlen (j/n)";a$
520 [139] a$[178]"j" [167] 340
530 [151] 785,72:[151] 786,178:[143] usr-vektor auf normalwert
540 [128]